home *** CD-ROM | disk | FTP | other *** search
/ Alles Voor Internet / Tout Pour Internet / alles voor internet.iso / MacInternet™ / Modem / ARA 1.0⁄2.0 CCLs / Supra ARA CCL 1.0⁄2.0 / Supra ARA CCL 1.0_2.0 next >
Text File  |  1994-04-25  |  4KB  |  255 lines
  1. !                              SUPRA CORPORATION
  2. !
  3. !                         APPLE REMOTE ACCESS 1.0/2.0
  4. !                  COMMUNICATION CONTROL LANGUAGE SCRIPT
  5. ! 
  6. !                        ENGINEERED BY MARK B. COOPER
  7. !
  8. @ORIGINATE
  9. @ANSWER
  10. !
  11. @LABEL 1
  12. SETTRIES 0
  13. HSRESET 0 1 0 0 0 0
  14. DTRSET
  15. !Wait for modem to powerup
  16. PAUSE 10
  17.  
  18. @Label 3
  19. SERRESET 57600, 0, 8, 1
  20. ! SETUP DEFAULT DIALING STRING FOR THE MODEM.
  21. matchstr 1 7 "OK\13\10"
  22. write "AT &FS0=0M0E0\\N0N1%C0S46=136&C1&K3&D2W2S95=12S7=120&P1\13"
  23. matchread 30
  24. inctries
  25. iftries 2 5
  26. SBREAK
  27. Jump 3
  28.  
  29. @Label 5
  30. HSRESET 0 0 0 0 0 0
  31. SERRESET 2400, 0, 8, 1
  32. Write "AT\13"
  33. ! SETUP DEFAULT DIALING STRING FOR THE MODEM.
  34. MatchClr
  35. matchstr 1 13 "OK\13\10"
  36. write "AT &FS0=0M0E0&C1S7=120&P1\13"
  37. matchread 30
  38. inctries
  39. iftries 2 98
  40. SBREAK
  41. jump 5
  42.  
  43. @LABEL 7
  44. ! CHECK ERROR CORRECTION LINK REQUEST
  45. ! MNP10 = 2, LAP-M/MNP = 1
  46. ifstr 4 9 "2"
  47. ifstr 4 11 "1"
  48. jump 13
  49.  
  50. @LABEL 9
  51. ! Configure MNP10 operation
  52. ! Used with ARA 2.0 only
  53. write "AT\\N3)M1-K1\13"
  54. Jump 13
  55.  
  56. @Label 11
  57. ! Configure LAP-M/MNP operation
  58. ! Used with ARA 2.0 only
  59. write "AT\\N3\13"
  60.  
  61. @LABEL 13
  62. ! SETUP ACCORDING TO SPEAKER OPTION
  63. ifstr 2 15 "0"
  64. matchclr
  65. matchstr 1 15 "OK\13\10"
  66. write "ATM1\13"
  67. matchread 30
  68. jump 98
  69.  
  70. @LABEL 15
  71. ! TURN ON AUTO ANSWER
  72. iforiginate 17
  73. write "ATS0=1\13"
  74. Jump 40
  75.  
  76. @LABEL 17
  77. ! 1 = blind, 2 =manual
  78. ifstr 6 21 "1"
  79. ifstr 6 19 "2"
  80. Jump 23
  81.  
  82. @LABEL 19
  83. note "Initiating Manual Connect..." 3
  84. write "ATD\13"
  85. jump 40
  86.  
  87. @LABEL 21
  88. note "Dialing without dialtone detection." 3
  89. matchclr
  90. matchstr 1 23 "OK\13\10"
  91. write "ATX1\13"
  92. matchread 30
  93. jump 98
  94.  
  95. @LABEL 23
  96. USERHOOK 1
  97. note "Dialing ^1." 3
  98. write "ATD^3^1\13"
  99.  
  100. @LABEL 40
  101. !Wait for modem connection speed result code
  102. matchstr 1 44 "CONNECT\13\10"
  103. matchstr 2 44 " 2400\13\10"
  104. matchstr 3 46 " 9600\13\10"
  105. matchstr 4 48 " 14400\13\10"
  106. matchstr 5 50 " 16800\13\10"
  107. matchstr 6 52 " 19200\13\10"
  108. matchstr 7 54 " 21600\13\10"
  109. matchstr 8 56 " 24000\13\10"
  110. matchstr 9 58 " 26400\13\10"
  111. matchstr 10 60 " 28800\13\10"
  112. matchstr 12 42 "RING\13\10"
  113. matchstr 13 90 "NO CARRIER\13\10"
  114. matchstr 14 92 "NO DIALTONE\13\10"
  115. matchstr 15 94 "BUSY\13\10"
  116. matchstr 16 96 "NO ANSWER\13\10"
  117. matchread 1200
  118. ifANSWER 40
  119. jump 96
  120.  
  121. @LABEL 42
  122. note "Answering Phone..." 2
  123. USERHOOK 1
  124. jump 40
  125.  
  126. @LABEL 44
  127. note "Communicating at 2400 bps." 2
  128. CommunicatingAt 2400
  129. jump 70
  130.  
  131. @LABEL 46
  132. note "Communicating at 9600 bps." 2
  133. CommunicatingAt 9600
  134. jump 70
  135.  
  136. @LABEL 48
  137. note "Communicating at 14400 bps." 2
  138. CommunicatingAt 14400
  139. jump 70
  140.  
  141. @LABEL 50
  142. note "Communicating at 16800 bps." 2
  143. CommunicatingAt 16800
  144. jump 70
  145.  
  146. @LABEL 52
  147. note "Communicating at 19200 bps." 2
  148. CommunicatingAt 19200
  149. jump 70
  150.  
  151. @LABEL 54
  152. note "Communicating at 21600 bps." 2
  153. CommunicatingAt 21600
  154. jump 70
  155.  
  156. @LABEL 56
  157. note "Communicating at 24000 bps." 2
  158. CommunicatingAt 24000
  159. jump 70
  160.  
  161. @LABEL 58
  162. note "Communicating at 26400 bps." 2
  163. CommunicatingAt 26400
  164. jump 70
  165.  
  166. @LABEL 60
  167. note "Communicating at 28800 bps." 2
  168. CommunicatingAt 28800
  169. Jump 70
  170.  
  171. @LABEL 70
  172. matchclr
  173. matchstr 1 78 "PROTOCOL: NONE\13\10"
  174. matchstr 2 72 "PROTOCOL: LAP-M\13\10"
  175. matchstr 3 74 "PROTOCOL: ALT\13\10"
  176. matchstr 4 76 "PROTOCOL: ALT - CELLULAR\13\10"
  177. matchread 50
  178. Jump 78
  179.  
  180. @LABEL 72
  181. note "LAP-M reliable link established." 3
  182. userhook 2
  183. jump 78
  184.  
  185. @LABEL 74
  186. note "MNP reliable link established." 3
  187. userhook 2
  188. jump 78
  189.  
  190. @LABEL 76
  191. note "MNP10 reliable link established." 3
  192. userhook 4
  193. jump 78
  194.  
  195. @LABEL 78
  196. exit 0
  197.  
  198.  
  199. @HANGUP
  200. @LABEL 80
  201. settries 0
  202. HSReset 0 0 0 0 0 0 
  203. DTRClear
  204.  
  205. @LABEL 82
  206. Flush
  207. SBREAK
  208. pause 5
  209. matchclr
  210. matchstr 1 84 "NO CARRIER\13\10"
  211. matchstr 2 84 "OK\13\10"
  212. matchstr 3 84 "ERROR\13\10"
  213. matchstr 4 84 "0\13\10"
  214. write "ATH\13"
  215. matchread 30
  216. inctries
  217. iftries 3 98
  218. write "+++"
  219. jump 82
  220.  
  221. @LABEL 84
  222. matchclr
  223. matchstr 1 86 "OK\13\10"
  224. write "AT&F\13"
  225. matchread 30
  226. jump 98
  227.  
  228. @LABEL 86
  229. userhook 0
  230. exit 0
  231.  
  232. ! General script errors
  233. @LABEL 90
  234. ! NO CARRIER
  235. exit -6021
  236.  
  237. @LABEL 92
  238. ! NO DIALTONE
  239. exit -6020
  240.  
  241. @LABEL 94
  242. ! BUSY SIGNAL DETECTED
  243. exit -6022
  244.  
  245. @LABEL 96
  246. ! NO ANSWER
  247. exit -6023
  248.  
  249. @LABEL 98
  250. ! MODEM NOT RESPONDING
  251. exit -6019
  252.  
  253. @LABEL 100
  254. ! VARSTRING ERROR
  255. exit -6027